0 POKE53280,6:POKE53281,6:FORI=0TO31:READA:POKE12288+192*8+I,A:NEXT:GOTO3050 1 SYS49152:POKE53248+24,29:POKE53275,255 2 PRINT"[147]":POKE54296,15:POKE808,225:POKE768,226:POKE769,252 3 POKE53286,0:POKE53285,1 4 POKE2040,201:FORI=0TO4:POKE2041+I,200:NEXT:POKE2047,210 5 POKE53248+21,255 6 POKE53264,0 7 POKE53248+28,255 8 POKE53288,3:POKE53289,5:POKE53290,3:POKE53291,5:POKE53292,3 9 POKE53287,2 10 SYS49225:FORI=0TO11:POKE53248+I,0:NEXT:GOSUB2000 11 POKE53262,150:POKE53263,150 15 A=RND(1)*200+40:POKE2046,209:POKE53293,2 16 B=RND(1)*170+50:POKE53260,A:POKE53261,B 17 FORI=1TO10:A=PEEK(53278):A=PEEK(53279):NEXT 18 GOSUB1000 20 SYS49253 30 IFPEEK(1022)=0THEN20 35 IFPEEK(1022)=2THENGOSUB150:GOTO15 40 PRINT"[144] YOU ARE HIT" 50 FORI=0TO100:POKE54276,0:POKE54273,I:POKE54277,2:POKE54276,33:NEXT 60 GOTO100 100 IFSC>HITHENHI=SC 105 PRINT""TAB(31)HI 110 GOTO9 150 POKE54276,0:POKE54273,200:POKE54277,27+32:POKE54276,17:RETURN 500 DATA3,15,15,31,31,31,63,63 501 DATA192,240,240,248,248,248,252,252 502 DATA29,1,1,3,3,7,28,0 503 DATA184,128,128,192,192,96,184,0 600 DATA0,0,0,2,160,0,10,168 601 DATA0,10,168,0,42,170,0,42 602 DATA170,0,42,170,0,42,170,0 603 DATA10,168,0,10,168,0,2,160 604 DATA0,0,0,0,0,0,0,0 605 DATA0,0,0,0,0,0,0,0 606 DATA0,0,0,0,0,0,0,0 607 DATA0,0,0,0,0,0,0,0 608 DATA0,0,0,48,3,0,14,172 609 DATA0,11,184,0,42,170,0,42 610 DATA170,0,42,170,0,37,150,0 611 DATA41,154,0,10,168,0,2,32 612 DATA0,0,0,0,0,0,0,0 613 DATA0,0,0,0,0,0,0,0 614 DATA0,0,0,0,0,0,0,0 615 DATA0,0,0,0,0,0,0,0 616 DATA0,48,0,2,176,0,10,176 617 DATA0,38,184,0,41,170,0,38 618 DATA175,192,42,154,0,10,102,0 619 DATA42,168,0,2,160,0,2,0 620 DATA0,0,0,0,0,0,0,0 621 DATA0,0,0,0,0,0,0,0 622 DATA0,0,0,0,0,0,0,0 623 DATA0,0,0,0,0,0,0,0 624 DATA0,0,0,2,160,0,10,168 625 DATA192,10,107,0,41,110,0,10 626 DATA170,0,10,170,0,41,110,0 627 DATA10,107,0,10,168,192,2,160 628 DATA0,0,0,0,0,0,0,0 629 DATA0,0,0,0,0,0,0,0 630 DATA0,0,0,0,0,0,0,0 631 DATA0,0,0,0,0,0,0,0 632 DATA0,0,0,2,0,0,2,160 633 DATA0,42,168,0,10,102,0,42 634 DATA154,0,38,175,192,41,170,0 635 DATA38,184,0,10,176,0,2,176 636 DATA0,0,48,0,0,0,0,0 637 DATA0,0,0,0,0,0,0,0 638 DATA0,0,0,0,0,0,0,0 639 DATA0,0,0,0,0,0,0,0 640 DATA0,0,0,2,32,0,10,168 641 DATA0,41,154,0,37,150,0,42 642 DATA170,0,42,170,0,42,170,0 643 DATA11,184,0,14,172,0,48,3 644 DATA0,0,0,0,0,0,0,0 645 DATA0,0,0,0,0,0,0,0 646 DATA0,0,0,0,0,0,0,0 647 DATA0,0,0,0,0,0,0,0 648 DATA0,0,0,0,32,0,2,160 649 DATA0,10,170,0,38,104,0,41 650 DATA170,0,254,166,0,42,154,0 651 DATA11,166,0,3,168,0,3,160 652 DATA0,3,0,0,0,0,0,0 653 DATA0,0,0,0,0,0,0,0 654 DATA0,0,0,0,0,0,0,0 655 DATA0,0,0,0,0,0,0,0 656 DATA0,0,0,2,160,0,202,168 657 DATA0,58,104,0,46,90,0,42 658 DATA168,0,42,168,0,46,90,0 659 DATA58,104,0,202,168,0,2,160 660 DATA0,0,0,0,0,0,0,0 661 DATA0,0,0,0,0,0,0,0 662 DATA0,0,0,0,0,0,0,0 663 DATA0,0,0,0,0,0,0,0 664 DATA3,0,0,3,160,0,3,168 665 DATA0,11,166,0,42,154,0,254 666 DATA166,0,41,170,0,38,104,0 667 DATA10,170,0,2,160,0,0,32 668 DATA0,0,0,0,0,0,0,0 669 DATA0,0,0,0,0,0,0,0 670 DATA0,0,0,0,0,0,0,0 671 DATA0,0,0,0,0,0,0,0 672 DATA0,0,0,12,12,0,43,58 673 DATA0,150,229,128,149,149,128,149 674 DATA149,128,37,150,0,37,150,0 675 DATA9,152,0,37,150,0,150,37 676 DATA128,150,37,128,40,10,0,0 677 DATA0,0,0,0,0,0,0,0 678 DATA0,0,0,0,0,0,0,0 679 DATA0,0,0,0,0,0,0,0 680 DATA0,0,0,0,0,0,0,0 681 DATA0,0,32,0,0,32,0,0 682 DATA84,0,4,84,64,21,17,80 683 DATA21,85,80,85,85,84,85,85 684 DATA84,81,85,20,64,84,4,0 685 DATA84,0,0,16,0,0,16,0 686 DATA0,84,0,0,84,0,0,68 687 DATA0,0,0,0,0,0,0,0 688 DATA0,0,0,0,0,0,0,0 689 DATA0,0,32,0,0,32,0,0 690 DATA84,0,4,84,64,5,17,64 691 DATA21,85,80,21,85,80,21,85 692 DATA80,17,85,16,16,84,16,0 693 DATA84,0,0,16,0,0,16,0 694 DATA0,84,0,0,84,0,0,68 695 DATA0,0,0,0,0,0,0,0 696 DATA0,0,0,0,0,0,0,0 697 DATA0,0,32,0,0,32,0,0 698 DATA84,0,4,84,64,5,17,64 699 DATA5,85,64,5,85,64,5,85 700 DATA64,5,85,64,4,84,64,4 701 DATA84,64,0,16,0,0,16,0 702 DATA0,84,0,0,84,0,0,68 703 DATA0,0,0,0,0,0,0,0 704 DATA0,0,0,0,0,0,0,0 705 DATA0,0,32,0,0,32,0,0 706 DATA84,0,0,84,0,1,17,0 707 DATA5,85,64,5,85,64,21,85 708 DATA80,17,85,16,16,84,16,0 709 DATA84,0,0,16,0,0,16,0 710 DATA0,84,0,0,84,0,0,68 711 DATA0,0,0,0,0,0,0,0 800 DATA120,169,51,133,1,169,0,133 801 DATA250,169,204,133,251,169,0,133 802 DATA252,169,44,133,253,160,0,152 803 DATA41,7,201,5,144,8,177,250 804 DATA10,145,252,76,54,192,201,2 805 DATA176,8,177,250,74,145,252,76 806 DATA54,192,177,250,145,252,200,208 807 DATA222,230,251,230,253,165,253,201 808 DATA50,208,210,169,55,133,1,88 809 DATA96,162,0,169,50,157,80,195 810 DATA169,150,157,81,195,232,232,224 811 DATA100,208,240,96,1,2,4,8 812 DATA16,32,64,128,173,173,0,220 813 DATA41,2,240,3,206,80,195,173 814 DATA0,220,41,1,240,3,238,80 815 DATA195,173,0,220,41,4,240,3 816 DATA238,81,195,173,0,220,41,8 817 DATA240,3,206,81,195,173,0,220 818 DATA73,127,24,141,255,3,234,234 819 DATA234,162,100,189,79,195,157,81 820 DATA195,202,208,247,162,0,160,0 821 DATA185,80,195,157,1,208,185,81 822 DATA195,157,0,208,232,232,152,24 823 DATA105,12,168,224,12,208,233,173 824 DATA255,3,240,40,160,201,201,2 825 DATA240,31,200,201,6,240,26,200 826 DATA201,4,240,21,200,201,5,240 827 DATA16,200,201,1,240,11,200,201 828 DATA9,240,6,200,201,8,240,1 829 DATA200,140,248,7,76,241,192,0 830 DATA234,238,239,192,173,239,192,201 831 DATA3,144,54,162,0,142,239,192 832 DATA173,0,208,56,237,14,208,141 833 DATA252,3,173,1,208,56,237,15 834 DATA208,141,253,3,201,128,144,6 835 DATA206,15,208,76,33,193,238,15 836 DATA208,173,252,3,201,128,144,6 837 DATA206,14,208,76,49,193,238,14 838 DATA208,173,239,192,201,1,208,15 839 DATA238,255,7,173,255,7,201,214 840 DATA144,5,169,210,141,255,7,169 841 DATA0,141,254,3,173,30,208,141 842 DATA251,3,41,128,240,13,173,251 843 DATA3,41,64,208,6,169,1,141 844 DATA254,3,96,162,200,160,230,200 845 DATA208,253,232,208,248,173,251,3 846 DATA41,64,240,13,173,251,3,41 847 DATA128,208,6,169,2,141,254,3 848 DATA96,173,31,208,141,249,3,41 849 DATA128,240,9,173,249,3,56,233 850 DATA128,141,249,3,173,249,3,41 851 DATA64,240,9,173,249,3,56,233 852 DATA64,141,249,3,173,249,3,240 853 DATA6,169,1,141,254,3,96,76,101,192 1000 A$="[192][193][157][157][194][195]":B$="" 1001 D$="" 1002 C$="[129][149][150][151][152][153][155][154][129][149][150][151][152][153][155]":A=INT(RND(1)*14)+1:PRINTMID$(C$,A,1) 1003 A=INT(RND(1)*12)*2:PRINTLEFT$(D$,A+1); 1004 A=INT(RND(1)*14)*2:PRINTLEFT$(B$,A+1);A$"" 1005 SC=SC+(L*10):L=L+1 1006 PRINT""TAB(31)SC 1010 RETURN 2000 POKE53269,0:GOSUB3000:L=0:SC=0:POKE198,0 2010 PRINT"  WORMO'S - PIGOUT 2020 [153]"  A MEGA PRODUKSIUN BY ICELAD/TIDE 2030 PRINT"[158] EAT ALL BUTTERFLIES 2040 [153]"AVOID MAGIC MUSHROOMS AND BIRD 2050 PRINT"[154] OPTIONS 'A' 'B' 2060 [153]" BIRD! YES NO" 2065 [153]"OPEN JOYSTICK PORT ][" 2070 [153]""[163]32)"STOPSCORE" 2080 [153][163]31)SC"CMD " 2090 [153][163]32)"HISCORE" 2100 [153][163]31)HI 2110 [161]A$ 2111 [139]([194](56320)[175]16)[178]0[167]A$[178]"A" 2120 [139]A$[178]"A"[167][151]53269,255:L[178]20:[137]3000 2130 [139]A$[178]"B"[167][151]53269,127:[137]3000 2135 [137]2110 3000 [153]""; 3001 A$[178]" " 3002 [129]I[178]1[164]24:[153]A$:[130]:[153]A$"" 3003 [142] 3050 [153]"LOADUNZIPPING GAME!GOILS PLEEZE LOOK AWAY" 3060 [153]"DIS GAME IS ICEWARE!WAIT SO ITS KEWL!!!!" 3061 [151]2020,20:[151]2021,9:[151]2022,4:[151]2023,5 4000 [129]I[178]0[164]895:[135]A:[151]12800[170]I,A:[130] 4001 [129]I[178]0[164]433:[135]A:[151]49152[170]I,A:[130]:[137] 1 4002 [143]EMBER DISS IZ 'ICELADS' GAME!! 4003 [143]EMBER TOM TO LOOK THRU SUM OLD 4004 [143]*MAGS,2 C WHERE'A'GOT DIS FROM 4005 [143]*IN DA 1ST PLACE/TZ..(HMMMM???)